(tq-filter): No need for save-match-data.

diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el
index e0524bb6e19cb405e0b6fcff2c36a724d02bb71b..0de2c48e638b765ce91d82fb9b3e41695f0e39ef 100644 (file)
--- a/lisp/emacs-lisp/tq.el
+++ b/lisp/emacs-lisp/tq.el
@@ -89,7 +89,7 @@ that's how we tell where the answer ends."
   "Append STRING to the TQ's buffer; then process the new data."
   (let ((old-buffer (current-buffer)))
     (unwind-protect
-       (save-match-data
+       (progn
          (set-buffer (tq-buffer tq))
          (goto-char (point-max))
          (insert string)